home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d3 / dbmail.arc / ML0207.PRG < prev    next >
Encoding:
Text File  |  1988-06-19  |  1.8 KB  |  114 lines
  1. NOTE ML0207 - PRINT MAILING LABELS, 1 UP, 3"x1"        5/14/85
  2. SET EJECT OFF
  3. SET TALK OFF
  4. ?
  5. ?
  6. ? 'Prepare Printer to Print Labels. Set Printer Switches to Print 6 Lines per Inch.'
  7. ? '        Press any Key to Continue.'
  8. wait
  9. store ' ' to bl
  10. store f to exit
  11. do while .not.exit
  12. ?
  13. accept 'Enter  (T) to print test pattern  (Q) to quit  <cr> to print labels ' to sel
  14. if !(sel)='Q'
  15.     release bl,exit
  16.     return
  17.     endif
  18. store !(sel)#'T' to exit
  19. if .not.exit
  20.     set print on
  21.     SET CONSOLE OFF
  22.     ? bl+'Test Line One'
  23.     ? bl+'Test Line Two'
  24.     ? bl+'Test Line Three'
  25.     ? bl+'Test Line Four'
  26.     ? bl+'Test Line Five'
  27.     ?
  28.     set print off
  29.     SET CONSOLE on
  30.     endif
  31. enddo
  32. release sel,exit
  33.  
  34. USE MLSUB2
  35. GOTO TOP
  36. set print on
  37. SET CONSOLE OFF
  38.  
  39. DO WHILE .NOT. EOF
  40. STORE L5#'     '.AND.L5#'" "'    TO OK
  41. STORE L6#'     '.AND.L6#'" "'    TO OK2
  42. IF OK
  43.     STORE TRIM(L5) TO WA
  44.     IF WA='"'
  45.         ? BL+$(WA,2, LEN(WA)-2)
  46.     ELSE
  47.         ? BL+WA
  48.         ENDIF
  49.     IF OK2
  50.         STORE TRIM(L6) TO WA
  51.         IF WA='"'
  52.             ?? '  '+$(WA,2, LEN(WA)-2)
  53.         ELSE
  54.             ?? '  '+WA
  55.             ENDIF
  56.         ENDIF
  57. ELSE
  58.     IF OK2
  59.         STORE TRIM(L6) TO WA
  60.         IF WA='"'
  61.             ? BL+$(WA,2, LEN(WA)-2)
  62.         ELSE
  63.             ? BL+WA
  64.             ENDIF
  65.         ENDIF
  66.     ENDIF
  67. STORE OK .OR. OK2    TO OK
  68. IF L1#'     '
  69.     STORE TRIM(L1) TO WA
  70.     ? BL+$(WA,2, LEN(WA)-2)
  71. ELSE
  72.     ?
  73.     ENDIF
  74. IF L2#'   '
  75.     STORE TRIM(L2) TO WA
  76.     ? BL+$(WA,2, LEN(WA)-2)
  77. ELSE
  78.     ?
  79.     ENDIF
  80. IF L3='    '
  81.     ?
  82. ELSE
  83.     STORE TRIM(L3) TO WA
  84.     ? BL+$(WA,2, LEN(WA)-2)
  85.     ENDIF
  86. IF L4='     '
  87.     ?
  88. ELSE
  89.     STORE TRIM(L4) TO WA
  90.     ? BL+$(WA,2, LEN(WA)-2)
  91.     ENDIF
  92. IF .NOT.OK
  93.     ?
  94.     ENDIF
  95. ?
  96. SKIP
  97. ENDDO
  98. use
  99. release bl,OK,WA,OK2
  100. SET CONSOLE ON
  101. SET FORMAT TO SCREEN
  102. SET PRINT OFF
  103. RETURN
  104. DIF
  105. ?
  106. SKIP
  107. ENDDO
  108. use
  109. release bl,OK,WA,OK2
  110. SET CONSOLE ON
  111. SET FORMAT TO SCREEN
  112. SET PRINT OFF
  113. RETURN
  114.